Tweet
Hallo,
ich habe folgendes Problem:
Zuerst einmal, dass ich von Perl quasi keine Ahnung habe. Ich habs zwar installiert gekriegt, aber da gehört vermutlich auch nicht viel zu.
Ich habe einen root-Server und möchte den auch gerne mal benutzen.
Also in meiner Community betreiben wir einen Service, der mich Dateien in verschiedenen Kategorien mit verschiedensten Parametern hochladen lässt, über ein PHP Upload-Formular.
Das Formular sieht folgendermaßen aus:
Datei (also hier muss eine Datei rein)
Name (Der Auf der Webseite angezeigt wir, wird aber bei leerlassen - Normalfall - einfach vom Dateinamen übernommen)
Info-Datei (hier muss zur Datei die zugehörige Info-Datei rein - existiert immer)
und die Beschreibung (dort muss nur "siehe Info" stehen)
dann gibt es die Kategorie, wo es werte von 1 bis 35 geben kann
und eine Wartezeit, bis das dingen sichtbar wird 0 oder -4
Zusätzlich kann ich noch eine Verschlüsselung auswählen (yes oder no, sollte immer auf yes sein)
Dann gibts nur noch den Upload-Button.
Ich hab das gesendete mal abgefangen:
-----------------------------16925658229
Content-Disposition: form-data; name="MAX_FILE_SIZE"
3145728
-----------------------------16925658229
Content-Disposition: form-data; name="file"; filename="Beispieldatei.jpg"
Content-Type: image/jpeg
JPG JPG JPG
-----------------------------16925658229
Content-Disposition: form-data; name="name"
-----------------------------16925658229
Content-Disposition: form-data; name="nfo"; filename="Beispieldatei.nfo"
Content-Type: application/nfo
NFO NFO NFO NFO
-----------------------------16925658229
Content-Disposition: form-data; name="descr"
siehe NFO...
-----------------------------16925658229
Content-Disposition: form-data; name="type"
14
-----------------------------16925658229
Content-Disposition: form-data; name="waittime"
-4
-----------------------------16925658229
Content-Disposition: form-data; name="crypto"
yes
-----------------------------16925658229--
So, und nun gilt es, ein funktionierendes Perl-Skript hinzubekommen, was genau diesen HTTP-Request "immitiert".
Ich weiß ja nicht, wie viel Arbeit dahinter steckt, aber vielleicht wäre ja jemand bereit, mir dabei zu helfen.
Ich lasse meine Kontaktdaten auch gleich mal da:
Skype: Agiler_Agilos
ICQ: 161941
außerdem kann mir hier jeder User E-Mails schicken.
Ich hoffe zumindest auf Antworten oder vielleicht auch ein Angebot, da ich wirklich 0 Ahnung von Perl habe und auch aus anderen Foren-Beiträgen hier nicht schlau geworden bin.
Hilflose Grüße,
Andreas
ich habe folgendes Problem:
Zuerst einmal, dass ich von Perl quasi keine Ahnung habe. Ich habs zwar installiert gekriegt, aber da gehört vermutlich auch nicht viel zu.
Ich habe einen root-Server und möchte den auch gerne mal benutzen.
Also in meiner Community betreiben wir einen Service, der mich Dateien in verschiedenen Kategorien mit verschiedensten Parametern hochladen lässt, über ein PHP Upload-Formular.
Das Formular sieht folgendermaßen aus:
Datei (also hier muss eine Datei rein)
Name (Der Auf der Webseite angezeigt wir, wird aber bei leerlassen - Normalfall - einfach vom Dateinamen übernommen)
Info-Datei (hier muss zur Datei die zugehörige Info-Datei rein - existiert immer)
und die Beschreibung (dort muss nur "siehe Info" stehen)
dann gibt es die Kategorie, wo es werte von 1 bis 35 geben kann
und eine Wartezeit, bis das dingen sichtbar wird 0 oder -4
Zusätzlich kann ich noch eine Verschlüsselung auswählen (yes oder no, sollte immer auf yes sein)
Dann gibts nur noch den Upload-Button.
Ich hab das gesendete mal abgefangen:
-----------------------------16925658229
Content-Disposition: form-data; name="MAX_FILE_SIZE"
3145728
-----------------------------16925658229
Content-Disposition: form-data; name="file"; filename="Beispieldatei.jpg"
Content-Type: image/jpeg
JPG JPG JPG
-----------------------------16925658229
Content-Disposition: form-data; name="name"
-----------------------------16925658229
Content-Disposition: form-data; name="nfo"; filename="Beispieldatei.nfo"
Content-Type: application/nfo
NFO NFO NFO NFO
-----------------------------16925658229
Content-Disposition: form-data; name="descr"
siehe NFO...
-----------------------------16925658229
Content-Disposition: form-data; name="type"
14
-----------------------------16925658229
Content-Disposition: form-data; name="waittime"
-4
-----------------------------16925658229
Content-Disposition: form-data; name="crypto"
yes
-----------------------------16925658229--
So, und nun gilt es, ein funktionierendes Perl-Skript hinzubekommen, was genau diesen HTTP-Request "immitiert".
Ich weiß ja nicht, wie viel Arbeit dahinter steckt, aber vielleicht wäre ja jemand bereit, mir dabei zu helfen.
Ich lasse meine Kontaktdaten auch gleich mal da:
Skype: Agiler_Agilos
ICQ: 161941
außerdem kann mir hier jeder User E-Mails schicken.
Ich hoffe zumindest auf Antworten oder vielleicht auch ein Angebot, da ich wirklich 0 Ahnung von Perl habe und auch aus anderen Foren-Beiträgen hier nicht schlau geworden bin.
Hilflose Grüße,
Andreas
Comment