🤰🏻 😕 👨🏻‍🌾 10 मिनट में आपका वेब-पीडीएफ प्रिंटर 📫 👆🏼 🎬

कैसे काफी समय बिताने और कुछ सरल और मूल करने के लिए, अपनी वैश्विक प्रकृति में हड़ताली - लेकिन बिल्कुल बेकार? बहुत सरल है। चलो हमारे प्रिंटर बनाते हैं।

हमें केवल सिर और हाथों को छोड़कर एक काम करने वाले वेब सर्वर की आवश्यकता है, जिसमें cgi-bin सपोर्ट है, जिसके लिए हमारे पास FTP के माध्यम से एक्सेस है। क्या ऐसी कोई बात है? चलो चलते हैं!

Cgi-bin फ़ोल्डर में प्रिंटर स्क्रिप्ट बनाएँ। स्क्रिप्ट की सामग्री बहुत सरल है:

<br> #! /usr/bin/perl <br><br> use strict ; <br><br> if (! defined ( $ENV { 'CONTENT_TYPE' } ) || $ENV { 'CONTENT_TYPE' } ne "application/ipp" ) { <br> print "Content-Type: text/html\n\n" ; <br> print ":-)" ; <br> exit ; <br> } <br><br> # $d -      <br> # $l -     <br> # $i -     <br> # %a -   <br><br> my ( $d , $l , $i , %a ) = ( "" , 0 , 0 ); <br> binmode STDIN ; <br> $l += read ( STDIN , $d , 4096 , $l ) while (! eof ( STDIN )); <br><br> parseRequest (\ $d , \ $l , \ $i , \ %a ); <br><br> my $o = "" <br> . substr ( $d , 0 , 2 ) # version <br> . chr ( 0x00 ) . chr ( 0x00 ) # status <br> . substr ( $d , 4 , 4 ) # request <br> . chr ( 0x01 ) # attributes <br> . stringAttribute ( 0x47 , "attributes-charset" , "utf-8" ) <br> . stringAttribute ( 0x48 , "attributes-natural-language" , "en-us" ) <br> . chr ( 0x04 ) # attributes <br> . stringAttribute ( 0x42 , "printer-name" , "PDF" ) <br> . chr ( 0x03 ) # end <br> . chr ( 0x0a ) <br> ; <br><br> print "Content-Type: text/html\n" ; <br> print "Content-Length: " . length ( $o ) . "\n" ; <br> print "\n" ; <br> print $o ; <br><br> if ( defined ( $a { '-status' } ) && $a { '-status' } == 0x02 && $i < $l ) { <br> my @t = localtime ; <br> my $output = sprintf ( "../pdf/%04d%02d%02d-%02d%02d%02d.pdf" , $t [ 5 ] + 1900 , $t [ 4 ], $t [ 3 ], $t [ 2 ], $t [ 1 ], $t [ 0 ]); <br> if ( open ( P , "|-" , "gs" , "-q" , "-dBATCH" , "-dNOPAUSE" , "-dSAFER" , "-sDEVICE=pdfwrite" , "-sOutputFile=$output" , "-" )) { <br> binmode P ; <br> print P substr ( $d , $i ); <br> close P ; <br> } <br> } <br><br> sub parseRequest { <br> my ( $d , $l , $i , $a ) = @_ ; <br> return if $ $i >= $ $l - 2 ; <br>    $ $a { '-version' } = ( ord ( substr ( $ $d , $ $i , 1 )) << 8 ) + ord ( substr ( $ $d , $ $i + 1 , 1 )); $ $i += 2 ; <br> return if $ $i >= $ $l - 2 ; <br>    $ $a { '-status' } = ( ord ( substr ( $ $d , $ $i , 1 )) << 8 ) + ord ( substr ( $ $d , $ $i + 1 , 1 )); $ $i += 2 ; <br> return if $ $i >= $ $l - 4 ; <br>    $ $a { '-request' } = parseInt ( substr ( $ $d , $ $i , 4 )); $ $i += 4 ; <br> return if $ $i >= $ $l - 1 ; <br> my $what = ord ( substr ( $ $d , $ $i , 1 )); $ $i ++; <br> return parseAttributes ( $d , $l , $i , $a ) if ( $what == 0x01 ); <br> } <br><br> sub parseAttributes { <br> my ( $d , $l , $i , $a ) = @_ ; <br> while ( $ $i < $ $l ) { <br> my $what = ord ( substr ( $ $d , $ $i , 1 )); $ $i ++; <br> return if ( $what == 0x03 ); <br> return parseAttributes ( $d , $l , $i , $a ) if ( $what == 0x02 ); <br> return parseAttributes ( $d , $l , $i , $a ) if ( $what == 0x04 ); <br> return if $ $i >= $ $l - 2 ; <br> my $key_len = ( ord ( substr ( $ $d , $ $i , 1 )) << 8 ) + ord ( substr ( $ $d , $ $i + 1 , 1 )); $ $i += 2 ; <br> return if $ $i >= $ $l - $key_len ; <br> my $key = substr ( $ $d , $ $i , $key_len ); $ $i += $key_len ; <br> return if $ $i >= $ $l - 2 ; <br> my $val_len = ( ord ( substr ( $ $d , $ $i , 1 )) << 8 ) + ord ( substr ( $ $d , $ $i + 1 , 1 )); $ $i += 2 ; <br> return if $ $i >= $ $l - $val_len ; <br> my $val = substr ( $ $d , $ $i , $val_len ); $ $i += $val_len ; <br>        $ $a { $key } = $val ; <br> } <br> } <br><br> sub parseInt { <br> my $v = shift ; <br> my $l = length ( $v ); <br> my $r = 0 ; <br> for ( my $i = $l ; $i > 0 ; $i --) { <br> $r += ( ( 1 << (( $i - 1 ) * 8 )) * ord ( substr ( $v , $l - $i , 1 )) ); <br> } <br> $r -= 4294967296 if ( $r >= 2147483648 ); <br> return $r ; <br> } <br><br> sub stringLength { <br> my $s = shift ; <br> my $l = length ( $s ); <br> my $i1 = $l & 0xFF ; <br> $l = ( $l - $i1 ) >> 8 ; <br> my $i2 = $l & 0xFF ; <br> return chr ( $i2 ) . chr ( $i1 ); <br> } <br><br> sub stringAttribute { <br> my ( $type , $key , $val ) = @_ ; <br> return chr ( $type ) . stringLength ( $key ) . $key . stringLength ( $val ) . $val ; <br> } <br>

जैसा कि आप देख सकते हैं, पर्ल मॉड्यूल पर कोई बाहरी निर्भरता, और कुछ भी नहीं। वास्तव में, आपको केवल पर्ल और जीएस प्रोग्राम की आवश्यकता है, जो लगभग हर जगह हैं।

स्क्रिप्ट एक बार PHP :: Print :: IPP पर आधारित थी। लेकिन, चूंकि अधिकांश सर्वर पर PHP स्क्रिप्ट से बाहरी कार्यक्रमों को निष्पादित करने के लिए मना किया जाता है, इसलिए मुझे इसे पर्ल को फिर से लिखना पड़ा। स्क्रिप्ट IPP सर्वर की बहुत बुनियादी कार्यक्षमता को लागू करती है।

इसके बाद, हम स्क्रिप्ट को निष्पादित करने का अधिकार देते हैं ( 755 , या rwxr-xr-x )। हम ब्राउज़र में देखते हैं: http://www.site.ru/cgi-bin/printer क्या यह काम करता है? सब ठीक है।

हम साइट के मूल में एक पीडीएफ फ़ोल्डर भी बनाते हैं और इस फ़ोल्डर ( 777 , या rwxrwxrwx ) को लिखने की अनुमति देते हैं।

अब प्रिंटर को विंडोज में जोड़ें:

प्रिंटर सेटअप
एक नेटवर्क प्रिंटर या अन्य कंप्यूटर से जुड़ा प्रिंटर
इंटरनेट पर प्रिंटर से कनेक्ट करें, अपने होम नेटवर्क पर, या इंट्रानेट पर: http://www.site.ru/cgi-bin/interinter
निर्माता: जेनेरिक , मॉडल: एमएस प्रकाशक इमेजेसटर

और एक परीक्षण पृष्ठ प्रिंट करें। हमारा परीक्षण पृष्ठ सर्वर पर पीडीएफ फ़ोल्डर में दिखाई देता है।

इसी तरह, आप बहुत सारी चीजें प्रिंट कर सकते हैं। दस्तावेज, चित्र ... कुछ भी।

यह तीन टिप्पणियां करना बाकी है।

1. सैद्धांतिक रूप से, स्क्रिप्ट कई कारणों से काम नहीं कर सकती है। मैं स्वतंत्र अध्ययन के लिए पर्ल स्क्रिप्ट को डीबग करने के मूल सिद्धांतों को छोड़ दूंगा।

2. प्रिंटर स्क्रिप्ट का नाम बदलकर कुछ पेचीदा एक पर रखने की सलाह दी जाती है ताकि हर कोई आपके प्रिंटर पर प्रिंट न करे। .Htaccess के माध्यम से CGI स्क्रिप्ट तक पहुंच को बंद करना काफी मुश्किल है, पर्ल स्क्रिप्ट के अंदर प्राधिकरण भी मुश्किल है। और तब यह संभव होगा ...

3. प्रिंटर विंडोज विस्टा और लिनक्स के तहत ठीक काम करता है। स्थापना, सामान्य रूप से, इतनी जटिल नहीं है। लेकिन क्या यह जरूरी है? ।।

UPD: लोकप्रिय मांग के अनुसार, मैं PHP में संस्करण को पोस्ट करता हूं।

आपको php.ini पर हमेशा_पोपल्ट_राव_पोस्ट_डाटा = सक्षम करना चाहिए और पोपेन को निष्पादित करने की क्षमता को अक्षम नहीं करना चाहिए।

<? <br><br> if (! isset ( $_SERVER [ 'CONTENT_TYPE' ]) || $_SERVER [ 'CONTENT_TYPE' ] != "application/ipp" ) { <br> header ( "Content-Type: text/html" ); <br> print ":-)" ; <br> exit ; <br> } <br><br> # $d -      <br> # $l -     <br> # $i -     <br> # %a -   <br><br> $d = & $HTTP_RAW_POST_DATA ; <br> $l = strlen ( $d ); <br> $i = 0 ; <br> $a = array (); <br><br> parseRequest ( $d , $l , $i , $a ); <br><br> $o = "" <br> . substr ( $d , 0 , 2 ) # version <br> . chr ( 0x00 ) . chr ( 0x00 ) # status <br> . substr ( $d , 4 , 4 ) # request <br> . chr ( 0x01 ) # attributes <br> . stringAttribute ( 0x47 , "attributes-charset" , "utf-8" ) <br> . stringAttribute ( 0x48 , "attributes-natural-language" , "en-us" ) <br> . chr ( 0x04 ) # attributes <br> . stringAttribute ( 0x42 , "printer-name" , "PDF" ) <br> . chr ( 0x03 ) # end <br> . chr ( 0x0a ) <br> ; <br><br> header ( "Content-Type: text/html" ); <br> header ( "Content-Length: " . strlen ( $o )); <br> print $o ; <br><br> if ( isset ( $a [ '-status' ]) && $a [ '-status' ] == 0x02 && $i < $l ) { <br> $output = sprintf ( "pdf/%s.pdf" , date ( "Ymd-His" )); <br> if ( $P = popen ( "gs -q -dBATCH -dNOPAUSE -dSAFER -sDEVICE=pdfwrite -sOutputFile=$output -" , "w" )) { <br> fwrite ( $P , substr ( $d , $i )); <br> fclose ( $P ); <br> } <br> } <br><br> function parseRequest (& $d , & $l , & $i , & $a ) { <br> if ( $i >= $l - 2 ) return ; <br> $a [ '-version' ] = ( ord ( $d [ $i ]) << 8 ) + ord ( $d [ $i + 1 ]); $i += 2 ; <br> if ( $i >= $l - 2 ) return ; <br> $a [ '-status' ] = ( ord ( $d [ $i ]) << 8 ) + ord ( $d [ $i + 1 ]); $i += 2 ; <br> if ( $i >= $l - 4 ) return ; <br> $a [ '-request' ] = parseInt ( substr ( $d , $i , 4 )); $i += 4 ; <br> if ( $i >= $l - 1 ) return ; <br> $what = ord ( $d [ $i ]); $i ++; <br> if ( $what == 0x01 ) return parseAttributes ( $d , $l , $i , $a ); <br> } <br><br> function parseAttributes (& $d , & $l , & $i , & $a ) { <br> while ( $i < $l ) { <br> $what = ord ( $d [ $i ]); $i ++; <br> if ( $what == 0x03 ) return ; <br> if ( $what == 0x02 ) return parseAttributes ( $d , $l , $i , $a ); <br> if ( $what == 0x04 ) return parseAttributes ( $d , $l , $i , $a ); <br> if ( $i >= $l - 2 ) return ; <br> $key_len = ( ord ( $d [ $i ]) << 8 ) + ord ( $d [ $i + 1 ]); $i += 2 ; <br> if ( $i >= $l - $key_len ) return ; <br> $key = substr ( $d , $i , $key_len ); $i += $key_len ; <br> if ( $i >= $l - 2 ) return ; <br> $val_len = ( ord ( $d [ $i ]) << 8 ) + ord ( $d [ $i + 1 ]); $i += 2 ; <br> if ( $i >= $l - $val_len ) return ; <br> $val = substr ( $d , $i , $val_len ); $i += $val_len ; <br> $a [ $key ] = $val ; <br> } <br> } <br><br> function parseInt ( $v ) { <br> $r = 0 ; <br> $l = strlen ( $v ); <br> for ( $i = $l ; $i > 0 ; $i --) { <br> $r += ( ( 1 << (( $i - 1 ) * 8 )) * ord ( $v [ $l - $i ]) ); <br> } <br> if ( $r >= 2147483648 ) $r -= 4294967296 ; <br> return $r ; <br> } <br><br> function stringLength ( $s ) { <br> $l = strlen ( $s ); <br> $i1 = $l & 0xFF ; <br> $l = ( $l - $i1 ) >> 8 ; <br> $i2 = $l & 0xFF ; <br> return chr ( $i2 ) . chr ( $i1 ); <br> } <br><br> function stringAttribute ( $type , $key , $val ) { <br> return chr ( $type ) . stringLength ( $key ) . $key . stringLength ( $val ) . $val ; <br> } <br><br> ?> <br>

उन्नत उपयोगकर्ताओं के लिए। यदि आप स्क्रिप्ट को विंडोज सर्वर पर चलाने की कोशिश करते हैं, तो आपको जीएस दुभाषिया के लिए पूर्ण पथ निर्दिष्ट करना पड़ सकता है। इस स्थिति में, मार्ग में स्लैश का उलटा होना चाहिए: "C: \\ Program files \\ gs \\ gs8.71 \\ bin \\ gs.exe।" वही पीडीएफ फाइल के लिए जाता है। क्योंकि, भले ही PHP स्वयं आगे की स्लैश वाली फाइलों को समझता हो, यह विंडोज कमांड लाइन दुभाषिया के बारे में नहीं कहा जा सकता है।

10 मिनट में आपका वेब-पीडीएफ प्रिंटर

More articles: